home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / apidev / netdmo.exe / WKSHELL.FRM < prev    next >
Text File  |  1993-12-10  |  5KB  |  220 lines
  1. Version 1.00
  2. BEGIN Form Wkshell
  3.     AutoRedraw   = 0
  4.     BackColor    = QBColor(1)
  5.     BorderStyle  = 1
  6.     Caption      = "Workstation Shell Information"
  7.     ControlBox   = -1
  8.     Enabled      = -1
  9.     ForeColor    = QBColor(0)
  10.     Height       = Char(15)
  11.     Left         = Char(9)
  12.     MaxButton    = -1
  13.     MinButton    = -1
  14.     MousePointer = 0
  15.     Tag          = ""
  16.     Top          = Char(3)
  17.     Visible      = -1
  18.     Width        = Char(63)
  19.     WindowState  = 0
  20.     BEGIN Label versionl
  21.         Alignment    = 0
  22.         AutoSize     = 0
  23.         BackColor    = QBColor(1)
  24.         BorderStyle  = 0
  25.         Caption      = "Shell Version:"
  26.         DragMode     = 0
  27.         Enabled      = -1
  28.         ForeColor    = QBColor(15)
  29.         Height       = Char(1)
  30.         Left         = Char(2)
  31.         MousePointer = 0
  32.         TabIndex     = 4
  33.         Tag          = ""
  34.         Top          = Char(1)
  35.         Visible      = -1
  36.         Width        = Char(15)
  37.     END
  38.     BEGIN TextBox versiontxt
  39.         BackColor    = QBColor(1)
  40.         BorderStyle  = 1
  41.         DragMode     = 0
  42.         Enabled      = -1
  43.         ForeColor    = QBColor(7)
  44.         Height       = Char(3)
  45.         Left         = Char(16)
  46.         MousePointer = 0
  47.         MultiLine    = 0
  48.         ScrollBars   = 0
  49.         TabIndex     = 1
  50.         TabStop      = -1
  51.         Tag          = ""
  52.         Text         = ""
  53.         Top          = Char(0)
  54.         Visible      = -1
  55.         Width        = Char(13)
  56.     END
  57.     BEGIN Label Label1
  58.         Alignment    = 0
  59.         AutoSize     = 0
  60.         BackColor    = QBColor(1)
  61.         BorderStyle  = 0
  62.         Caption      = "OS Type:"
  63.         DragMode     = 0
  64.         Enabled      = -1
  65.         ForeColor    = QBColor(15)
  66.         Height       = Char(1)
  67.         Left         = Char(2)
  68.         MousePointer = 0
  69.         TabIndex     = 5
  70.         Tag          = ""
  71.         Top          = Char(5)
  72.         Visible      = -1
  73.         Width        = Char(9)
  74.     END
  75.     BEGIN TextBox ostypetxt
  76.         BackColor    = QBColor(1)
  77.         BorderStyle  = 1
  78.         DragMode     = 0
  79.         Enabled      = -1
  80.         ForeColor    = QBColor(7)
  81.         Height       = Char(3)
  82.         Left         = Char(11)
  83.         MousePointer = 0
  84.         MultiLine    = 0
  85.         ScrollBars   = 0
  86.         TabIndex     = 2
  87.         TabStop      = -1
  88.         Tag          = ""
  89.         Text         = ""
  90.         Top          = Char(4)
  91.         Visible      = -1
  92.         Width        = Char(13)
  93.     END
  94.     BEGIN Label harwarel
  95.         Alignment    = 0
  96.         AutoSize     = 0
  97.         BackColor    = QBColor(1)
  98.         BorderStyle  = 0
  99.         Caption      = "Hardware Type:"
  100.         DragMode     = 0
  101.         Enabled      = -1
  102.         ForeColor    = QBColor(15)
  103.         Height       = Char(1)
  104.         Left         = Char(31)
  105.         MousePointer = 0
  106.         TabIndex     = 6
  107.         Tag          = ""
  108.         Top          = Char(1)
  109.         Visible      = -1
  110.         Width        = Char(15)
  111.     END
  112.     BEGIN TextBox Hardwaretxt
  113.         BackColor    = QBColor(1)
  114.         BorderStyle  = 1
  115.         DragMode     = 0
  116.         Enabled      = -1
  117.         ForeColor    = QBColor(7)
  118.         Height       = Char(3)
  119.         Left         = Char(45)
  120.         MousePointer = 0
  121.         MultiLine    = 0
  122.         ScrollBars   = 0
  123.         TabIndex     = 3
  124.         TabStop      = -1
  125.         Tag          = ""
  126.         Text         = ""
  127.         Top          = Char(0)
  128.         Visible      = -1
  129.         Width        = Char(15)
  130.     END
  131.     BEGIN CommandButton wkshellok
  132.         BackColor    = QBColor(7)
  133.         Cancel       = 0
  134.         Caption      = "OK"
  135.         Default      = 0
  136.         DragMode     = 0
  137.         Enabled      = -1
  138.         Height       = Char(3)
  139.         Left         = Char(22)
  140.         MousePointer = 0
  141.         TabIndex     = 0
  142.         TabStop      = -1
  143.         Tag          = ""
  144.         Top          = Char(9)
  145.         Visible      = -1
  146.         Width        = Char(15)
  147.     END
  148.     BEGIN Label Label2
  149.         Alignment    = 0
  150.         AutoSize     = 0
  151.         BackColor    = QBColor(1)
  152.         BorderStyle  = 0
  153.         Caption      = "OS Version:"
  154.         DragMode     = 0
  155.         Enabled      = -1
  156.         ForeColor    = QBColor(15)
  157.         Height       = Char(1)
  158.         Left         = Char(31)
  159.         MousePointer = 0
  160.         TabIndex     = 7
  161.         Tag          = ""
  162.         Top          = Char(5)
  163.         Visible      = -1
  164.         Width        = Char(12)
  165.     END
  166.     BEGIN TextBox osvertxt
  167.         BackColor    = QBColor(1)
  168.         BorderStyle  = 1
  169.         DragMode     = 0
  170.         Enabled      = -1
  171.         ForeColor    = QBColor(7)
  172.         Height       = Char(3)
  173.         Left         = Char(42)
  174.         MousePointer = 0
  175.         MultiLine    = 0
  176.         ScrollBars   = 0
  177.         TabIndex     = 8
  178.         TabStop      = -1
  179.         Tag          = ""
  180.         Text         = "Text1"
  181.         Top          = Char(4)
  182.         Visible      = -1
  183.         Width        = Char(15)
  184.     END
  185. END
  186. '$FORM netdemo
  187. TYPE ShellI                          'GetShellInfo
  188.     majorVersion AS INTEGER
  189.     MinorVersion AS INTEGER
  190.     revnum AS INTEGER
  191.     OsType AS STRING * 10
  192.     Osversion AS STRING * 10
  193.     hardwareType AS STRING * 10
  194. END TYPE
  195. DECLARE SUB Getshellinfo (WShell AS ShellI)
  196.  
  197. SUB Form_Load ()
  198. DIM WShell AS ShellI
  199. CALL Getshellinfo(WShell)    'Call the Procedure
  200. IF value.revnum = 0 THEN letter$ = "A"
  201. IF value.revnum = 1 THEN letter$ = "B"
  202. IF value.revnum = 2 THEN letter$ = "C"
  203. IF value.revnum = 3 THEN letter$ = "D"
  204. Osver$ = MID$(WShell.Osversion, 4, 6)
  205. versiontxt.text = LTRIM$(STR$(WShell.majorVersion)) + "." + LTRIM$(STR$(WShell.MinorVersion)) + "  " + "REV." + letter$
  206. OSTypetxt.text = WShell.OsType
  207. OSVertxt.text = WShell.Osversion
  208. hardwaretxt.text = WShell.hardwareType
  209. END SUB
  210.  
  211. SUB Form_Unload (Cancel AS INTEGER)
  212. netdemo.SHOW
  213. END SUB
  214.  
  215. SUB wkshellok_Click ()
  216. wkshell.HIDE
  217. netdemo.SHOW
  218. END SUB
  219.  
  220.